home *** CD-ROM | disk | FTP | other *** search
/ Max Special: Max Gallery / Max Special Gallery.iso / pc / castin.dir / 00029.ls < prev    next >
Encoding:
Text File  |  1997-04-03  |  1022 b   |  37 lines
  1. on exitFrame
  2.   global indice, ElencoModelle
  3.   set numeroElementiLista to count(ElencoModelle)
  4.   if indice <= 1 then
  5.     notIndRollOverButton()
  6.   else
  7.     if (numeroElementiLista - indice + 1) <= 1 then
  8.       notAvaRollOverButton()
  9.     else
  10.       testRollOverButton()
  11.     end if
  12.   end if
  13.   go(the frame)
  14. end
  15.  
  16. on mouseUp
  17.   global indice, ElencoModelle
  18.   if the clickOn = 33 then
  19.     inizializzaPaginaModello()
  20.     go(#next)
  21.     set linea to getAt(ElencoModelle, indice - 2)
  22.     assegnaLogo(35, char 1 of item 1 of line linea of field "DBTXT" & "L.PIC")
  23.     assegnaLogo(7, item 1 of line linea of field "DBTXT" & ".PIC")
  24.     riempiCampo(linea, "dati", EMPTY, 1)
  25.   else
  26.     if the clickOn = 34 then
  27.       inizializzaPaginaModello()
  28.       go(#next)
  29.       set linea to getAt(ElencoModelle, indice - 1)
  30.       assegnaLogo(35, char 1 of item 1 of line linea of field "DBTXT" & "L.PIC")
  31.       assegnaLogo(7, item 1 of line linea of field "DBTXT" & ".PIC")
  32.       riempiCampo(linea, "dati", EMPTY, 1)
  33.     else
  34.     end if
  35.   end if
  36. end
  37.